Option Explicit
Sub D_Sample027()
    CommandBars("Workbook Tabs").ShowPopup
End Sub
